;Exam2014H26t ̐؂oƊǗe[u쐬
;--------------------------------
MAIN START
	LAD GR1,TEXT
	LAD GR2,KTBL
	CALL GETTKN
	RET
TEXT DC '  This 1234  99#AB* is a book .'
KTBL DS 55
	END
;----------------
GETTKN START
	RPUSH
	LD GR3,=-1     ;P̎ʂ̏
	LAD GR1,-1,GR1
LP LAD GR1,1,GR1	  ;P̐擪AhX
	LD GR4,0,GR1   ;
	CPL GR4,='.'
	JZE FIN
	CPL GR4,=' '
	JNZ ALNUM
	CALL SETTKN
	JUMP LP      ;a @C
ALNUM LD GR3,GR3 ;P̏H
	JPL LP       ;̒Pꂪp܂ޏꍇ͂ko
	JZE ACHK     ;̒Pꂪ̏ꍇACHK
	LD GR3,=0    ;̒P̏Jn
;ȉł́APʂhȂhɐݒ
	LD GR6,GR1   ;擪AhXޔ
ACHK CPL GR4,='9'
	JPL NEXT
	CPL GR4,='0'
	JMI NEXT
	JUMP LP     ;ȍꍇ͂ko
NEXT LD GR3,=1   ;Pʂhp܂ށhɐݒ
	JUMP LP
FIN CALL SETTKN
	LD GR5,=-1
	ST GR5,0,GR2 ;I[}[Ni[
	RPOP
	RET
SETTKN LD GR3,GR3
	JMI FIN2     ;PꏈłȂΉȂ
	ST GR6,0,GR2 ;P̐擪AhXi[
	LD GR5,GR1
	SUBL GR5,GR6 ;b @J
	ST GR5,1,GR2 ;P̒i[
	ST GR3,2,GR2 ;P̎ʂi[
	LD GR3,=-1   ;Pʂ(Ԃj
	LAD GR2,3,GR2
FIN2 RET
	END
;--------------------------
